home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1995 January / 1995-01b.d64 / hide dir (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  611b  |  15 lines
  1. 10 rem hide/uncover directory middle
  2. 15 print"hide or uncover dir middle (h/u)?":wait198,7:getx$:ifx$<>"h"then55
  3. 18 rem hide directory middle
  4. 20 close15:open15,8,15:print#15,"i0:":close5:open5,8,5,"#":t=18:s=1
  5. 25 print#15,"u1:"5;0;t;s:print#15,"b-p:5,0":get#5,t$:get#5,s$
  6. 30 t2=t:s2=s:t=asc(t$+chr$(0)):s=asc(s$+chr$(0)):ift<>0then25
  7. 35 ift2=18and(s2=1ors2=4)thenprint" no middle to hide! [146]":goto50
  8. 40 print#15,"u1:"5;0;18;1:print#15,"b-p:5,0":print#5,chr$(t2)chr$(s2);
  9. 45 print#15,"u2:"5;0;18;1
  10. 50 input#15,er,er$:print:print"disk status"er;er$:print#15,"i0:":close15:end
  11. 55 rem unhide directories
  12. 60 close15:open15,8,15:print#15,"i0:":close5:open5,8,5,"#":t=18:s=1
  13. 65 print#15,"u1:"5;0;18;1:print#15,"b-p:5,0":print#5,chr$(18)chr$(4);
  14. 70 print#15,"u2:"5;0;18;1:goto50
  15.